home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Entertainment / Strategy / Genesis / Expand < prev    next >
Text File  |  1990-08-29  |  691b  |  64 lines
  1. nop 999
  2. jmp 45
  3. nop 0
  4. nop 0
  5. nop 0
  6. nop 0
  7. mov #9,*3;  find parent
  8. djz -1,*3
  9. gcl *3,*4
  10. cnp #1,*4;  not chloro
  11. jmp -3
  12. gcf *3,*4
  13. cnp #999,*4;  not family
  14. jmp -6
  15. add #4,*3; flip
  16. cmg #8,*3
  17. add #-8,*3
  18. cmp #1,*3
  19. jmp *8
  20. cmp #3,*3
  21. jmp *8
  22. cmp #5,*3
  23. jmp *8
  24. cmp #7,*3
  25. jmp *8
  26. mov *3,*4; copy values
  27. mov *3,*5
  28. add #1,*4; one past
  29. cmp *4,#9
  30. mov #1,*4
  31. add #-1,*5; one back
  32. cmp *5,#0
  33. mov #8,*5
  34. gcl *3,*6
  35. cnp #-1,*6
  36. jmp *7
  37. new *4,#3; split there
  38. new *5,#3
  39. gcl *4,*6
  40. cnp *6,#3
  41. jmp -7
  42. gcl *5,*6
  43. cnp *6,#3
  44. jmp -10
  45. ppl *3
  46. jmp *7
  47. mov #5,*2; 45 chl
  48. mov #9,*3
  49. djz 4,*3
  50. weg #300
  51. new *3,#3
  52. jmp -3
  53. mov #52,*2;    51 this adr
  54. mov #9,*3
  55. djz -1,*3
  56. new *3,#1
  57. gcl *3,*4
  58. cnp *4,#3
  59. jmp -4
  60. geg *4
  61. cml #350,*4
  62. jmp -7
  63. meg *3,#50
  64. jmp -9